NetNews Offline 2/NetNews Offline Volume 2.iso/news/de/comm/isdn/3686

Text File | 1996-08-06 | 6KB | 326 lines

Path: news00.btx.dtag.de!not-for-mail
From: [e-mail] (Karl-Johannes Stich)
Newsgroups: de.comm.isdn
Subject: Re: Mit Winsock direkt ins Internet via T-Online. Suche Script !!
Date: 11 Feb 1996 11:01:58 GMT
Organization: Telekom Online Internet Gateway
Message-ID: <4fkib6$[e-mail]>
References: <4fdjpk$[e-mail]>
Reply-To: [e-mail]
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Sender: [e-mail] (Karl-Johannes Stich)
X-Newsreader: Forte Free Agent v0.56

[e-mail] (Martin Poluha) wrote:

>Hallo Leute !
>Ich habs nun leid, jedesmal den T-Online-Decoder zu starten, um ins
>Internet zu gehen. Da WIn95 keinen Treiber fⁿr meine AVM B1 hat und
>ich auch ungerne das Dial-Up Netzwerk einsetzen moechte, will ich es
>so realisieren, dass ich CFOS fuer Win benutze und dann ueber den
>Trumpet Winsock fuer Win 95 mich direkt einwaehle.
>NUR: Wo bekomme ich den Script ? KAnn ihn mal bitte jemand posten
>oder mnir einen FTP-Server nennen ? Thanx a lot !!!!


Schnipp--------------------------------------------------------------

# trace on
echo off

#
# Modem initialisieren (fuer Cfos/WIN)

display \nModem initialisieren ...\n
output ATB5\n
if ![input 5 OK\n]
  display \nModem antwortet nicht :-(\n\7
  abort
end

#
# Anschlusskennung als $password verschluesselt in INI ablegen
# bzw. von dort auslesen
#

if ![load $password]
  if [password "Anschlusskennung:"]
    save $password
  end
end

#
# Kennwort als $userpassword verschluesselt in INI ablegen
# bzw. von dort auslesen
#

if ![load $userpassword]
  if [query $userpassword "Kennwort:"]
    save $userpassword
  end
end

#
# waehlen
#

display T-Online-Zentrale anwaehlen ...\n
output ATDT01910\n
if ![input 60 CONNECT]
  set dtr off
  sleep 1
  set dtr on
  display \nkein CONNECT :-(\n\7
  abort
end

#
# Warten auf Eingabeaufforderung fuer Anschlusskennung
#

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nT-Online-Zentrale antwortet nicht :-(\n\7
  abort
end

#
# Anschlusskennung senden
# xxxxxxxxxxxx (12 Stellen ohne Return)
# liegt verschluesselt in der Variablen $password
#

display Anschlusskennung senden ...\n
output $password

#
# der folgende Teil zwischen den cut-Linien darf nur bei
# freizuegig geschalteten Anschluessen ausgefuehrt werden !
# Ansonsten loeschen oder auskommentieren.
#

# -------------------------- cut --------------------------

#
# Teilnehmernummer (oder Return)
#

if ![input 20 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe der Anschlusskennung :-(\n\7
  abort
end

display Teilnehmernummer bestaetigen ...\n
output \n

# -------------------------- cut --------------------------

#
# Mitbenutzernummer (oder Return wenn 0001)
#

if ![input 20 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe der Teilnehmernummer :-(\n\7
  abort
end

display Mitbenutzernummer senden ...\n
output \n

#
# Kennwort senden
# liegt verschluesselt in der Variablen $userpassword
#

if ![input 20 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe der Mitbenutzernummer :-(\n\7
  abort
end

display Kennwort senden ...\n
if len($userpassword) < 8
  output $userpassword\28
else
  output $userpassword
end

#
# transparente Datenvorwarnung abschalten
#

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Eingabe des Kennworts :-(\n\7
  abort
end

display TDV abschalten ...\n
output \19
output 53\28

#
# VT100 einschalten
#

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler nach Abschaltung TDV :-(\n\7
  abort
end

display In VT100-Modus wechseln ...\n
output \19
output 707\28

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

output j

if ![input 30 \26]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

output .\13

if ![input 30 \e[?25h]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

output n

#
# Internet-Uebergabeseite aufrufen
#

if ![input 30 \e[?25h]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Wechsel in VT100-Modus :-(\n\7
  abort
end

display Internet-Gatewayseite anwaehlen ...\n
output *190144100\r

#
# 0,10 DM/min bestStigen
#

if ![input 30 \e[?25h]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Aufruf der Gatewayseite :-(\n\7
  abort
end

output 19\n

if ![input 120 STATUS]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

display \n
echo on
sleep 1

#
# Zugangsart ?
#

output WIN\r

#
# Meine IP-Adresse setzen und zur Information ausgeben
#

if ![input 10 YOURIP]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

address 3

if ![input 10 \n.\n]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

if ![input 10 \n.\n]
  set dtr off
  sleep 1
  set dtr on
  display \nFehler bei Verbindungsaufbau zum ER :-(\n\7
  abort
end

display \nConnected! :-)\n\n\7

#
# Uebergang in SLIP-Modus
#

output OK\r

#
# Script verlassen und Online gehen
#

online

Schnipp--------------------------------------------------------------

Bis dann,

+------------------------------------------------------------------------------+
|         _/     _/_/    _/_/_/    _/_/_/    Karl-Johannes Stich               |
|        _/    _/  _/       _/        _/     Ludwigstr. 29                     |
|  _/   _/   _/_/_/_/     _/        _/       D-33098 Paderborn                 |
|   _/_/   _/      _/   _/_/_/_/  _/_/_/_/   fon: [phone]            |
|                                            fax: [phone]            |
|   Stamp your hands and clap your feet!     E-Mail: [e-mail]    |
+------------------------------------------------------------------------------+